perm filename CYCDRC.LAP[1,LMM] blob
sn#034835 filedate 1973-04-12 generic text, type T, neo UTF8
(LAP SORTLN SUBR)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -7 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 (SPECIAL NMX))
(MOVE 1 -8 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(MOVE 1 -8 P)
(CALL 1 (E CONN))
(CALL 1 (E LENGTH))
(PUSH P 1)
(MOVE 1 -9 P)
(CALL 1 (E TMP))
(POP P 1)
(PUSHJ P NSTR)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -8 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -8 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 1 1))
(PUSH P (SPECIAL PATSELECT))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 1 -1 P)
(JUMPE 1 TAG8)
(HLRZ@ 1 1)
(MOVEM 1 -9 P)
(HLRZ@ 1 1)
(CALL 1 (E TMP))
(MOVEI 1 (QUOTE 20))
(PUSHJ P NSTR)
TAG6
TAG7 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG8 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(CLEARM 1 0 P)
(MOVEI 2 (QUOTE 10))
(MOVE 1 (SPECIAL NMX))
(CALL 2 (E *TIMES))
(CLEARM 1 -5 P)
(MOVEM 1 -6 P)
TAG9 (MOVEI 1 (QUOTE 0))
(CLEARM 1 -3 P)
(MOVEM 1 -2 P)
(PUSH P (SPECIAL LINE))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG10 (MOVE 1 -1 P)
(JUMPE 1 TAG13)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(MOVE 2 -2 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG12)
(HLRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 1 (E TMP))
(PUSH P 1)
(HLRZ@ 1 -4 P)
(HRRZ@ 1 1)
(CALL 1 (E TMP))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 -6 P)
(MOVE 2 -4 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG31)
(MOVE 1 -6 P)
(MOVEM 1 -4 P)
(MOVE 1 -3 P)
(MOVEM 1 -5 P)
TAG31
TAG11
TAG12 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG10)
TAG13 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVE 1 -5 P)
(JUMPE 1 TAG33)
(MOVE 2 1)
(HLRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG33)
(HLRZ@ 2 -3 P)
(HLRZ@ 2 2)
(HLRZ@ 1 -3 P)
(HRRZ@ 1 1)
(CALL 2 (E CONS))
(HRLM@ 1 -3 P)
TAG33 (MOVE 3 -6 P)
(MOVE 2 -5 P)
(HLRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 3 (E SRTLNA))
(MOVE 3 -6 P)
(MOVE 2 1)
(MOVEM 1 -5 P)
(HLRZ@ 1 -3 P)
(HRRZ@ 1 1)
(CALL 3 (E SRTLNA))
(MOVEI 2 (QUOTE -10))
(MOVEM 1 -5 P)
(MOVE 1 -6 P)
(CALL 2 (E *PLUS))
(MOVE 2 0 P)
(MOVEM 1 -6 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
(CALL 1 (E LENGTH))
(MOVE 2 (SPECIAL LLN))
(CALL 2 (E *LESS))
(JUMPN 1 TAG9)
(MOVE 1 0 P)
(CALL 1 (E REVERSE))
(MOVEM 1 (SPECIAL LINE))
(SUB P (C 0 0 8 8))
(POPJ P)
NIL
(LAP SRTLNA SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG5)
(MOVE 1 -1 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 -2 P)
(CALL 1 (E TMP))
(MOVE 2 0 P)
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E TMP))
(POP P 1)
(PUSHJ P NSTR)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E CONS))
TAG1 (SUB P (C 0 0 3 3))
(POPJ P)
NIL